#!/usr/bin/perl -w

#  FILE:   control.pl
#  AUTHOR: Ruth Cobos y Luis Valverde Garcia
#  DATE:   2/07/02
#
#  CHANGE: Jaime Moreno (19/07/02), identificación única
#
#  DESCRIPTION: 
#  Barra de navegacion del sistema. Cubre los espacios de
#  conocimiento (1), comunidad/grupo de coordinacion (2) y 
#  perfil de usuario (3).



# inicializar
require ("init.pl");
require ("dbData.pl");
require "gui.pl";

#Funciones comunes y mensajes 
require ("awc/xml/awCommonServices.pl");


require "awPersistent.pl";

require "sofiaInterfaceInfo.pl";
# imprimir cabecera
&print_header;

# procesar la entrada al script
%input = &parse_input;

# obtener los datos de entrada
$dbName = $input{b};
$idTopic = $input{t};
$idAuthor = $input{u};

$espacio = $input{nav_space};	# numero del espacio en el que nos encontramos 

# obtener path de las imagenes
($dbLanguage, $IMG) = &get_language($dbName);
$IMG=$IMG.'/img_toolbar';

#Texto de error
%H = &get_data($dbLanguage, "Message", "name", "\'noConsolidated\'");
$textMsgError = $H{'txt'.1};
chop ($textMsgError);
if ( defined $input{u})
{
  $idUser = $input{u};
  $idMode = 0; # pendiente de mejora identificación única (se asignará valor 1)
}
else
{
  $idUser = "";
  $idMode = 0;
}

    print <<EOFJ10;

    <SCRIPT LANGUAGE="Javascript">
	<!--


    function ShowMsg()
    {
        alert('$textMsgError');
	return (false);
    }
    // -->
    </SCRIPT>
EOFJ10
  ;



# obtener datos del tema actual
$phase = &get_phase($dbName);
if ($phase == 0) {
  $idStructure = $input{s};  
  %data = &get_data($dbName, "Struct", "idTopic", $idTopic);
}
if ($phase == 1) {
  $idStructure = 0;  
  %data = &get_data($dbName, "Topic", "idTopic", $idTopic);
}
$nameTopic = $data{nameTopic.1};		# nombre del tema
$URL = $data{URL.1};						# URL del tema
$path = &get_path($URL);				# path de los frames a mostrar
$status = $data{status.1};	

# imprimir inicio pagina
print "<html> <head>";

if ((($espacio==2) && ($phase==0)) || ($espacio==3))
{
  print "<BASE TARGET=\"inform\">";
}
else
{
  print "<BASE TARGET=\"descriptions\">";
}

print <<EOF1;
</HEAD>
<body bgcolor="#FFFFFF" text="#000000">
<div align="center">
  <table border=0 cellpadding=0 cellspacing=0>
    <tr> 
EOF1
;

# obtener titulos solapas
%H = &get_data($dbLanguage, "HelpMsg", "name", "\'spaceKC\'");
$alts{espacio1} = $H{'txt'.1};
%H = &get_data($dbLanguage, "HelpMsg", "name", "\'spaceU\'");
$alts{espacio3} = $H{'txt'.1};

#$alts{espacio1}='Conocimiento';
#$alts{espacio2}='Comunidad';
#$alts{espacio3}='Perfil de usuario';

#Donde hay que ir
#%H = &get_data($dbLanguage, "HelpMsg", "name", "\'kSpace\'");
#$alts{go1} = $H{'txt'.1};
#%H = &get_data($dbLanguage, "HelpMsg", "name", "\'uSpace\'");
#$alts{go3} = $H{'txt'.1};

# obtener links a cada espacio
if ($phase==0) {
	$hrefs{espacio1}=$path . "kc.pl?b=$dbName&t=$idTopic&s=$idStructure&u=$idAuthor";
	$hrefs{espacio2}=$path . "sc.pl?b=$dbName&t=$idTopic&s=$idStructure&u=$idUser&m=-2";
	%H = &get_data($dbLanguage, "HelpMsg", "name", "\'spaceSC\'");
	$alts{espacio2} = $H{'txt'.1};
#%H = &get_data($dbLanguage, "HelpMsg", "name", "\'scSpace\'");
#$alts{go2} = $H{'txt'.1};
	$hrefs{espacio3} = $path . "up.pl?b=$dbName&t=$idTopic&s=$idStructure&u=$idUser&m=-2";
}
else {
	$hrefs{espacio1}=$path . "kc.pl?b=$dbName&t=$idTopic&u=$idAuthor";
	$hrefs{espacio2}=$hrefs{uc} = $path . "uc.pl?b=$dbName&t=$idTopic&u=$idUser&m=-2";
	%H = &get_data($dbLanguage, "HelpMsg", "name", "\'spaceUC\'");
	$alts{espacio2} = $H{'txt'.1};
#%H = &get_data($dbLanguage, "HelpMsg", "name", "\'ucSpace\'");
#$alts{go2} = $H{'txt'.1};
	$hrefs{espacio3} = $path . "up.pl?b=$dbName&t=$idTopic&u=$idUser&m=-2";

}


# dibujar titulos solapas
foreach $i (1..3) {
	
	# color de la solapa
	print '<td bgcolor=';
	if ($espacio==$i) {
		print "$spaceColors{'dark_'.$i}";
	}
	else {
		print "$spaceColors{'bright_'.$i}";
	}	
	print " nowrap>\n&nbsp;&nbsp;<font color=\"#FFFFFF\" size=\"3\"><b>";
	
	# link al espacio si no es el actual
	if ($espacio!=$i) {
		print "<a href=\"$hrefs{'espacio'.$i}\" target=\"kc\" style=\"text-decoration:none;color:#808080\">";
#                print " <img title=\"$alts{'go'.$i}\">";
	}
	print "$alts{'espacio'.$i}";
	print "</a>" if ($espacio!=$i);
	print "</b></font>&nbsp;&nbsp;\n</td>\n";
	
	# barras de separacion
	if ($i!=3) {
		print "<td width=1 bgcolor=#808080 height=\"29\"><img width=1 height=1 title=\"\"></td><td width=1 bgcolor=#ffffff height=\"29\"><img width=1 height=1 title=\"\"></td>\n";
	}
	
}
print "\n</table>\n</div>\n";


# dibujar fondo de la barra de iconos
print <<EOF1;
<div align="center">
  <table border=0 cellpadding=0 cellspacing=0 width="100%" height="35">
    <tr bgcolor=$spaceColors{'dark_'.$espacio}>
EOF1
;


# Determinar iconos a pintar segun el espacio
$nIconos=0;

# espacio 1
if ($espacio==1) {
	
	# obtener los mensajes de ayuda de los botones
	%H = &get_data($dbLanguage, "HelpMsg", "name", "\'helpKC\'");
	$alts{helpKC} = $H{'txt'.1};
	%H = &get_data($dbLanguage, "HelpMsg", "name", "\'seeAllDes\'");
	$alts{seeAllDes} = $H{'txt'.1};
	%H = &get_data($dbLanguage, "HelpMsg", "name", "\'addDes\'");
	$alts{addDes} = $H{'txt'.1};
	%H = &get_data($dbLanguage, "HelpMsg", "name", "\'voteDes\'");
	$alts{voteDes} = $H{'txt'.1};
	%H = &get_data($dbLanguage, "HelpMsg", "name", "\'addStructure\'");
	$alts{addStructure} = $H{'txt'.1};
	%H = &get_data($dbLanguage, "HelpMsg", "name", "\'voteStructure\'");
	$alts{voteStructure} = $H{'txt'.1};
	%H = &get_data($dbLanguage, "HelpMsg", "name", "\'addTopic\'");
	$alts{addTopic} = $H{'txt'.1};
	%H = &get_data($dbLanguage, "HelpMsg", "name", "\'voteAddT\'");
	$alts{voteAddT} = $H{'txt'.1};
	%H = &get_data($dbLanguage, "HelpMsg", "name", "\'voteRemT\'");
	$alts{voteRemT} = $H{'txt'.1};
	%H = &get_data($dbLanguage, "HelpMsg", "name", "\'remTopic\'");
	$alts{remTopic} = $H{'txt'.1};
	%H = &get_data($dbLanguage, "HelpMsg", "name", "\'voteModT\'");
	$alts{voteModT} = $H{'txt'.1};
	%H = &get_data($dbLanguage, "HelpMsg", "name", "\'modTopic\'");
	$alts{modTopic} = $H{'txt'.1};
	%H = &get_data($dbLanguage, "HelpMsg", "name" , "\'lost_pass\'");
        $alts{'lost_pass'} = $H{'txt'.1};
        	
	%H = &get_data($dbLanguage, "HelpMsg", "name", "\'join\'");
	$alts{'join'} = $H{'txt'.1};
	
	
	
	# obtener path de los scripts de las operaciones
	if ($phase == 0) {  		
  		$hrefs{'join'} = $path . "join.pl?b=$dbName&t=$idTopic&s=$idStructure&u=$idAuthor";
  		$hrefs{seeAllDes} = $path . "inform.pl?b=$dbName&t=$idTopic&s=$idStructure&u=$idAuthor";
  		$hrefs{addDes} = $path . "addDes.pl?b=$dbName&t=$idTopic&s=$idStructure&u=$idAuthor";
  		$hrefs{voteDes} = $path . "voteDes.pl?b=$dbName&t=$idTopic&s=$idStructure&u=$idAuthor";
  		$hrefs{descriptions} = $path . "descriptions.pl?b=$dbName&t=$idTopic&s=$idStructure&u=$idAuthor";
  		$hrefs{addStructure} = $path . "newAddStructure.pl?b=$dbName&t=$idTopic&s=$idStructure&u=$idAuthor";
  		$hrefs{voteStructure} = $path . "voteStructure.pl?b=$dbName&t=$idTopic&s=$idStructure&u=$idAuthor";
                # Añadido en 5.0a
      $hrefs{lost_pass} = $path . "lostPass.pl?b=$dbName&t=$idTopic&s=$idStructure&u=$idAuthor";
                #$hrefs{'lost_pass'} = "www.ii.uam.es";                
	}
	%dAuthor = &get_data($dbName, "Author", "idAuthor", $idUser);
	$userName = $dAuthor{nameAuthor.1};
	$kcTask="ENTER_STORY";		
	if ($phase == 1) {  		
  		$hrefs{'join'} = $path . "join.pl?b=$dbName&t=$idTopic&u=$idAuthor";
  		$hrefs{seeAllDes} = $path . "inform.pl?b=$dbName&t=$idTopic&u=$idAuthor";
  		$hrefs{addDes} = $path . "addDes.pl?b=$dbName&t=$idTopic&u=$idAuthor";
  		$hrefs{voteDes} = $path . "voteDes.pl?b=$dbName&t=$idTopic&u=$idAuthor";
  		$hrefs{addTopic} = $path . "addTopic.pl?b=$dbName&t=$idTopic&u=$idAuthor";
  		$hrefs{remTopic} = $path . "remTopic.pl?b=$dbName&t=$idTopic&u=$idAuthor";
  		#Añadido 4.3
  		$hrefs{modTopic} = $path . "modTopic.pl?b=$dbName&t=$idTopic&u=$idAuthor";
  		$hrefs{voteAddT} = $path . "voteTopic.pl?b=$dbName&t=$idTopic&o=A&u=$idAuthor";
  		$hrefs{voteRemT} = $path . "voteTopic.pl?b=$dbName&t=$idTopic&o=R&u=$idAuthor";
  		#Añadido 4.3
  		$hrefs{voteModT} = $path . "voteTopic.pl?b=$dbName&t=$idTopic&o=M&u=$idAuthor";
  		$hrefs{descriptions} = $path . "descriptions.pl?b=$dbName&t=$idTopic&u=$idAuthor";  
                #Añadido en 5.0a
  		$hrefs{lost_pass} = $path . "lostPass.pl?b=$dbName&t=$idTopic&s=$idStructure&u=$idAuthor";
                #$hrefs{'lost_pass'} = "www.ii.uam.es";
 		$hrefs{sofia} = &sofiaUrl."user=".$userName."&kcTask=".$kcTask;  # taken from sofiaInterfaceInfo.pl
	}
	
	#6.0
	$hrefs{CloseSession} = $path . "close.pl";
		
	# icono de ayuda
	%dF = &get_data($dbName, "GeneralData", "idGeneralData", 1);
	$displayHelp = $dF{'help'.1};
	if ($displayHelp eq '1') {
	
		#obtener datos
 		$pathHelp = $dF{pathHelp.1};
		$hrefs{helpKC} = '../' . $pathHelp . $phase . '/';
  
		# pintar icono
		&gui_declareIcon('helpKC',"../$IMG/nav_help.gif","../$IMG/nav_help_1_sel.gif");  
		print "<td height=\"35\" width=\"45\" nowrap valign=\"middle\" align=\"center\">\n";  
		print "<a href=\"$hrefs{helpKC}\" TARGET=\"_blank\" >";
		&gui_putIcon('helpKC',"../$IMG/nav_help.gif","border=\"0\" title=\"$alts{helpKC}\" width=\"22\" height=\"22\"");
		print "</a></td>\n";
	}
	print "<td height=\"35\" width=\"100%\" nowrap valign=\"middle\" align=\"center\">\n";	

	
	# alta en el sistema
	%dUser = &get_data($dbName, "User", "nameU", "\'browser\'");
	$AddNewUser = $dUser{AddNewUser.1};
	if ($AddNewUser == 1) {
		$iconos[$nIconos++]='join';
	}

	# operaciones sobre documentos
	$iconos[$nIconos++]='seeAllDes';
	$iconos[$nIconos++]='addDes';
	$iconos[$nIconos++]='voteDes';

	# especificos fase 0
	if ($phase == 0) {
		$iconos[$nIconos++]='addStructure';
		$iconos[$nIconos++]='voteStructure';
	}

	# especificos fase 1
	if ($phase==1) {
		$iconos[$nIconos++]='addTopic';
		$iconos[$nIconos++]='voteAddT';
		$iconos[$nIconos++]='remTopic';
		$iconos[$nIconos++]='voteRemT';
		#Añadido 4.3, faltan iconos buenos
		$iconos[$nIconos++]='modTopic';
		$iconos[$nIconos++]='voteModT';
	}
	
  $iconos[$nIconos++] = 'sofia';
  $iconos[$nIconos++]='lost_pass';

}

# espacio 2
elsif ($espacio==2) {

	# obtener los mensajes de ayuda de los botones
	%H = &get_data($dbLanguage, "HelpMsg", "name", "\'helpSC\'");
	$alts{helpSC} = $H{'txt'.1};
	%H = &get_data($dbLanguage, "HelpMsg", "name", "\'seeSC\'");
	$alts{seeSC} = $H{'txt'.1};
	%H = &get_data($dbLanguage, "HelpMsg", "name", "\'addMember\'");
	$alts{addMember} = $H{'txt'.1};
	%H = &get_data($dbLanguage, "HelpMsg", "name", "\'voteMember\'");
	$alts{voteMember} = $H{'txt'.1};
	%H = &get_data($dbLanguage, "HelpMsg", "name", "\'changePhase\'");
	$alts{changePhase} = $H{'txt'.1};
	%H = &get_data($dbLanguage, "HelpMsg", "name", "\'votePhase\'");
	$alts{votePhase} = $H{'txt'.1};
	%H = &get_data($dbLanguage, "HelpMsg", "name", "\'mailSC\'");
	$alts{mailSC} = $H{'txt'.1};

	# obtener los mensajes de ayuda de los botones
	%H = &get_data($dbLanguage, "HelpMsg", "name", "\'helpUC\'");
	$alts{helpUC} = $H{'txt'.1};
	%H = &get_data($dbLanguage, "HelpMsg", "name", "\'seeCrysDes\'");
	$alts{seeCrysDes} = $H{'txt'.1};
	%H = &get_data($dbLanguage, "HelpMsg", "name", "\'mailUC\'");
	$alts{mailUC} = $H{'txt'.1};
	%H = &get_data($dbLanguage, "HelpMsg", "name", "\'mailParticipants\'");
	$alts{mailParticipants} = $H{'txt'.1};
	%H = &get_data($dbLanguage, "HelpMsg", "name", "\'joinOther\'");
	$alts{joinOther} = $H{'txt'.1};
	
	if ($phase == 0) {  		
	# obtener path de los scripts de las operaciones
	$hrefs{seeSC} = $path . "membersSC.pl?b=$dbName&t=$idTopic&u=$idUser";
	$hrefs{addMember} = $path . "addMember.pl?b=$dbName&t=$idTopic&u=$idUser";
	$hrefs{voteMember} = $path . "voteMember.pl?b=$dbName&t=$idTopic&u=$idUser";
	$hrefs{changePhase} = $path . "changePhase.pl?b=$dbName&t=$idTopic&u=$idUser";
	$hrefs{votePhase} = $path . "votePhase.pl?b=$dbName&t=$idTopic&u=$idUser";
	$hrefs{mailSC} = $path . "sendMailSC.pl?b=$dbName&t=$idTopic&u=$idUser";

	# icono de ayuda
	%dF = &get_data($dbName, "GeneralData", "idGeneralData", 1);
	$displayHelp = $dF{'help'.1};
	if ($displayHelp eq '1') {
	
		#obtener datos
		$pathHelp = $dF{pathHelp.1};
		$pathHelp = '../' . $pathHelp . $phase . '/coordinacion/';
		$hrefs{helpSC} = $pathHelp;
  
		# pintar icono
		&gui_declareIcon('helpUC',"../$IMG/nav_help.gif","../$IMG/nav_help_2_sel.gif");  
		print "<td height=\"35\" width=\"45\" nowrap valign=\"middle\" align=\"center\">\n";  
		print "<a href=\"$hrefs{helpSC}\" TARGET=\"_blank\" >";
		&gui_putIcon('helpUC',"../$IMG/nav_help.gif","border=\"0\" title=\"$alts{helpSC}\" width=\"22\" height=\"22\"");
		print "</a></td>\n";
	}
	print "<td height=\"35\" width=\"100%\" nowrap valign=\"middle\" align=\"center\">\n";
		
	# icono de alta en el sistema

	# ver si se permite añadir usuarios de forma distribuida o centralizada (los que posean una clave especial)
	# ver si se permite dar de alta a un usuario nuevo
	%dUser = &get_data($dbName, "User", "nameU", "\'browser\'");
	$AddNewUserB = $dUser{AddNewUser.1};
	%dUser = &get_data($dbName, "User", "nameU", "\'committee\'");
	$AddNewUserSC = $dUser{AddNewUser.1};

	#Ver si ha accedido el responsable del nodo
	%person = &get_data($dbName, "GeneralData", "idGeneralData", 1);
	$idHead = $person{'idHead'.1};

	%dPhase = &get_data($dbName, "Phase", "name", "\'INITIAL\'");
	$mode = $dPhase{AddNewUser.1};

	if ((($AddNewUserB == '0') && ($mode eq "DISTRIBUTED") && ($AddNewUserSC == '1')) || (($idUser == $idHead) && ($mode eq "CENTRALISED")))
	{
  		$hrefs{joinOther} = $path . "joinOther.pl?b=$dbName&t=$idTopic&u=$idUser";
  		$iconos[$nIconos++]='joinOther';  
	} 

	# iconos fijos
	$iconos[$nIconos++]='seeSC';
	$iconos[$nIconos++]='addMember';
	$iconos[$nIconos++]='voteMember';
	$iconos[$nIconos++]='changePhase';
	$iconos[$nIconos++]='votePhase';
	$iconos[$nIconos++]='mailSC';
	}
	if ($phase == 1) {  		
	
	# obtener path de los scripts de las operaciones
	$hrefs{seeCrysDes} = $path . "crysDes.pl?b=$dbName&t=$idTopic&u=$idUser";
	$hrefs{mailUC} = $path . "sendMail.pl?b=$dbName&t=$idTopic&u=$idUser";
	$hrefs{mailParticipants} = $path . "sendMailP.pl?b=$dbName&t=$idTopic&u=$idUser";
	
	# icono de ayuda
	%dF = &get_data($dbName, "GeneralData", "idGeneralData", 1);
	$displayHelp = $dF{'help'.1};
	if ($displayHelp eq '1') {
	
		#obtener datos
		$pathHelp = $dF{pathHelp.1};
		$pathHelp = '../' . $pathHelp . $phase . '/';
		$hrefs{helpUC} = &get_path($pathHelp);
		$hrefs{helpUC} = $hrefs{helpUC} . 'espaciocom.htm';
  
		# pintar icono
		&gui_declareIcon('helpUC',"../$IMG/nav_help.gif","../$IMG/nav_help_2_sel.gif");  
		print "<td height=\"35\" width=\"45\" nowrap valign=\"middle\" align=\"center\">\n";  
		print "<a href=\"$hrefs{helpUC}\" TARGET=\"_blank\" >";
		&gui_putIcon('helpUC',"../$IMG/nav_help.gif","border=\"0\" title=\"$alts{helpUC}\" width=\"22\" height=\"22\"");
		print "</a></td>\n";
	}
	print "<td height=\"35\" width=\"100%\" nowrap valign=\"middle\" align=\"center\">\n";
	
	
	# icono de alta en el sistema

	# ver si se permite dar de alta a un usuario nuevo
	%dUser = &get_data($dbName, "User", "nameU", "\'browser\'");
	$AddNewUserB = $dUser{AddNewUser.1};

	#Ver si ha accedido el responsable del nodo
	%person = &get_data($dbName, "GeneralData", "idGeneralData", 1);
	$idHead = $person{'idHead'.1};
	
	# ver si se permite añadir usuarios de forma distribuida o centralizada (los que posean una clave especial)
	%dPhase = &get_data($dbName, "Phase", "name", "\'ACTIVE\'");
	$mode = $dPhase{AddNewUser.1};

	if ((($AddNewUserB == '0') && ($mode eq "DISTRIBUTED")) || (($idUser == $idHead) && ($AddNewUserB == '0') && ($mode eq "CENTRALISED")))
	{
  		$hrefs{joinOther} = $path . "joinOther.pl?b=$dbName&t=$idTopic&u=$idUser";
  		$iconos[$nIconos++]='joinOther';  
	} 

	# iconos fijos
	$iconos[$nIconos++]='seeCrysDes';
	$iconos[$nIconos++]='mailParticipants';	

        #Si es experto en algo entonces puede mandar mensajes a expertos en los mismos temas

        %experts = &get_data($dbName, "Expert", "idAuthor", $idUser);
        if ($experts{idTopic.1} ne '')
        {
          $iconos[$nIconos++]='mailUC';	
        }

	}
}

# espacio 3
else {
	# obtener los mensajes de ayuda de los botones
	%H = &get_data($dbLanguage, "HelpMsg", "name", "\'helpU\'");
	$alts{helpU} = $H{'txt'.1};
	%H = &get_data($dbLanguage, "HelpMsg", "name", "\'profile\'");
	$alts{profile} = $H{'txt'.1};
	%H = &get_data($dbLanguage, "HelpMsg", "name", "\'subscriptions\'");
	$alts{subscriptions} = $H{'txt'.1};
	%H = &get_data($dbLanguage, "HelpMsg", "name", "\'seeOthers\'");
	$alts{seeOthers} = $H{'txt'.1};
	%H = &get_data($dbLanguage, "HelpMsg", "name", "\'participationUser\'");
	$alts{participationUser} = $H{txt.1};
	%H = &get_data($dbLanguage, "HelpMsg", "name", "\'descriptionUser\'");
	$alts{descriptionUser} = $H{txt.1};

	if ($phase == 0) {  		
 	  	$hrefs{profile} = $path . "profile.pl?b=$dbName&t=$idTopic&u=$idUser&s=$idStructure";
		$hrefs{subscriptions} = $path . "suscrip.pl?b=$dbName&t=$idTopic&u=$idUser&s=$idStructure";
		$hrefs{seeOthers} = $path . "seeAllProfiles.pl?b=$dbName&t=$idTopic&u=$idUser&s=$idStructure";
	        $hrefs{participationUser} = $path . "rParticipationUser.pl?b=$dbName&t=$idTopic&u=$idUser&s=$idStructure";
		$hrefs{descriptionUser} = $path . "rDescriptionUser.pl?b=$dbName&t=$idTopic&u=$idUser&s=$idStructure";

		%data = &get_data($dbName, "User", "nameU", "\'committee\'");
		$view = $data{'ViewReports'.1};

		if ($view == '1')
		{
		  $showReports = 1;
		}
		else
		{
		  $showReports = 0;
		}

	}

	if ($phase == 1) {  		
 	  	$hrefs{profile} = $path . "profile.pl?b=$dbName&t=$idTopic&u=$idUser";
		$hrefs{subscriptions} = $path . "suscrip.pl?b=$dbName&t=$idTopic&u=$idUser";
		$hrefs{seeOthers} = $path . "seeAllProfiles.pl?b=$dbName&t=$idTopic&u=$idUser";
	        $hrefs{participationUser} = $path . "rParticipationUser.pl?b=$dbName&t=$idTopic&u=$idUser";
		$hrefs{descriptionUser} = $path . "rDescriptionUser.pl?b=$dbName&t=$idTopic&s&u=$idUser";

		#Ver si ha accedido el responsable del nodo
		%person = &get_data($dbName, "GeneralData", "idGeneralData", 1);
		$idHead = $person{'idHead'.1};

		if ($idUser == $idHead)
		{
		  $showReports = 1;
		}
		else
		{
		  $showReports = 0;
		}
	}

	%dAuthor = &get_data($dbName, "Author", "idAuthor", $idUser);
	$typeUser = $dAuthor{typeUser.1};
	%dataShow2 = &get_data($dbName, "User", "idUser", $typeUser);
	$UPDAllProfiles = $dataShow2{UPDAllProfiles.1};

	if ($UPDAllProfiles eq '1')
	{
	     $showOthers = 1;
	}
	else
	{
	     $showOthers = 0;
	}

	# icono de ayuda
	%dF = &get_data($dbName, "GeneralData", "idGeneralData", 1);
	$displayHelp = $dF{'help'.1};
	if ($displayHelp eq '1') {
	
		#obtener datos
		$pathHelp = $dF{pathHelp.1};
		$pathHelp = '../' . $pathHelp . $phase . '/usuarios.htm';
		$hrefs{helpU} = $pathHelp;
  
		# pintar icono
		&gui_declareIcon('helpU',"../$IMG/nav_help.gif","../$IMG/nav_help_3_sel.gif");  
		print "<td height=\"35\" width=\"45\" nowrap valign=\"middle\" align=\"center\">\n";  
		print "<a href=\"$hrefs{helpU}\" TARGET=\"_blank\" >";
		&gui_putIcon('helpU',"../$IMG/nav_help.gif","border=\"0\" title=\"$alts{helpU}\" width=\"22\" height=\"22\"");
		print "</a></td>\n";
	}
	print "<td height=\"35\" width=\"100%\" nowrap valign=\"middle\" align=\"center\">\n";	

	# iconos fijos
	$iconos[$nIconos++]='profile';
	$iconos[$nIconos++]='subscriptions';	

        # icono de ver a los demás usuarios
        if ($showOthers ==1)
        {
		$iconos[$nIconos++]='seeOthers';
        }

	# icono de informes
	if ($showReports == 1) 
	{
		$iconos[$nIconos++]='participationUser';
		$iconos[$nIconos++]='descriptionUser';
	}	
}


# declarar iconos a utilizar
foreach $i (0..$nIconos-1) {
	&gui_declareIcon($iconos[$i],"../$IMG/nav_$iconos[$i].gif","../$IMG/nav_$iconos[$i]_sel.gif");
}

# dibujar iconos

foreach $i (0..$nIconos-1) {
	$iconName = $iconos[$i];
	$iconHref = "<a href=\"$hrefs{$iconName}\"";
		
	if ( (($iconName eq 'addDes') || ($iconName eq 'addTopic')) 
		&& ($status ne 'F'))
	{
		$iconHref = $iconHref." onclick=\"return ShowMsg()\"";
	}
	elsif ($iconName eq 'seeAllDes')
	{
		$iconHref = $iconHref." target=\"inform\"";
	}
	elsif($iconName eq 'sofia')
	{
		# &declarePopUpFun;
		# $iconHref = $iconHref. "onclick=\"popup(this, \'sofia\')\"";
	}		
	# Need to print here because &gui_putIcon prints the rest. Ideally
	# only one print per loop == better performance.
	$iconHref = $iconHref.">";
	print $iconHref;
	&gui_putIcon($iconName,"../$IMG/nav_$iconName.gif","border=\"0\" title=\"$alts{$iconName}\" width=\"22\" height=\"22\"");
	$iconHrefEnd = '</a>';
	if ($i!=$nIconos-1)
	{		
		$iconHrefEnd = $iconHrefEnd . '&nbsp;&nbsp;&nbsp;' ;
	}
	$iconHrefEnd = $iconHrefEnd. "\n";
	print $iconHrefEnd;

}

# cerrar tabla y documento
if ($displayHelp eq '1') {
	print "<td height=\"35\" width=\"45\" nowrap valign=\"middle\" align=\"center\"></td>\n";
}

print '<td style="font-size:0.9em;color:#eef;" height="35" width="45" nowrap align="center"><nobr><b>.::'."\u$MSG_USER_SESSION_NAME".'::.</b> <a style="border:0px;text-decoration:none;" target="_top" href="exit.pl" title="'.$MSG_EXIT.'"><img onmouseover="this.src=\'exit-over.gif\'" onmouseout="this.src=\'exit.gif\'" style="border:0px;" src="exit.gif"></a><nobr></td><tr>';
print "</table></body></html>\n";
